﻿Public Class ExTpoInmueble

#Region "           Atributos                       "
    Private _descTpoInmueble As String
    Private _cantidad As Int32
    Private _unidadesSeparadas As Int32
    Private _unidadesVendidas As Int32
    Private _montoVendido As Decimal
    Private _mtoCobrado As Decimal
    Private _mtoPorCobrar As Decimal
    Private _mtoVencido As Decimal
#End Region

#Region "           Propiedades                     "
    Public Property descTpoInmueble() As String
        Get
            Return _descTpoInmueble
        End Get
        Set(ByVal value As String)
            _descTpoInmueble = value
        End Set
    End Property
    Public Property cantidad() As Int32
        Get
            Return _cantidad
        End Get
        Set(ByVal value As Int32)
            _cantidad = value
        End Set
    End Property
    Public Property unidadesSeparadas() As Int32
        Get
            Return _unidadesSeparadas
        End Get
        Set(ByVal value As Int32)
            _unidadesSeparadas = value
        End Set
    End Property
    Public Property unidadesVendidas() As Int32
        Get
            Return _unidadesVendidas
        End Get
        Set(ByVal value As Int32)
            _unidadesVendidas = value
        End Set
    End Property
    Public Property mtoVendido() As Decimal
        Get
            Return _montoVendido
        End Get
        Set(ByVal value As Decimal)
            _montoVendido = value
        End Set
    End Property
    Public Property mtoCobrado() As Decimal
        Get
            Return _mtoCobrado
        End Get
        Set(ByVal value As Decimal)
            _mtoCobrado = value
        End Set
    End Property
    Public Property mtoPorCobrar() As Decimal
        Get
            Return _mtoPorCobrar
        End Get
        Set(ByVal value As Decimal)
            _mtoPorCobrar = value
        End Set
    End Property
    Public Property mtoVencido() As Decimal
        Get
            Return _mtoVencido
        End Get
        Set(ByVal value As Decimal)
            _mtoVencido = value
        End Set
    End Property
#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal descTpoInmueble As String, ByVal cantidad As Int32, ByVal unidadesSeparadas As Int32, ByVal unidadesVendidas As Int32, _
                   ByVal mtoVendido As Decimal, ByVal mtoCobrado As Decimal, ByVal mtoPorCobrar As Decimal, ByVal mtoVencido As Decimal)
        Me.descTpoInmueble = descTpoInmueble
        Me.cantidad = cantidad
        Me.unidadesSeparadas = unidadesSeparadas
        Me.unidadesVendidas = unidadesVendidas
        Me.mtoVendido = mtoVendido
        Me.mtoCobrado = mtoCobrado
        Me.mtoPorCobrar = mtoPorCobrar
        Me.mtoVencido = mtoVencido
    End Sub
#End Region

End Class
